home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Documentation / WW3DKit / A_IntroWW3DKitExampleFiles / simpleSolidCylinder.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-03-22  |  1.3 KB  |  29 lines
  1. # note that $modelPath is automagically set to be the complete path
  2. # name of whereever this .mdl file wrapper is located
  3. #
  4. source $modelPath/initialDefines.eve
  5.  
  6. # note that since "source" is a built-in tcl command, we needed to
  7. # give it the full path name of the previous file so it could load it.
  8. # In the next command, though, since "loadControlPanel" is a new eve
  9. # command, it is smart enough to append the value of $modelPath to any
  10. # file that doesn't start with "/"
  11. #
  12. loadControlPanel controls.nib
  13. loadControlPanel animation.nib
  14.  
  15. startShape aCylinder
  16.   EveCmd {Color $cylinder(color)}
  17.   EveCmd {Scale $cylinder(xScale) $cylinder(yScale) $cylinder(zScale)}
  18.   EveCmd {Translate $cylinder(xTranslate) $cylinder(yTranslate) $cylinder(zTranslate)}
  19.   EveCmd {Rotate $cylinder(xRotate) 1 0 0 }
  20.   EveCmd {Rotate $cylinder(yRotate) 0 1 0 }
  21.   EveCmd {Rotate $cylinder(zRotate) 0 0 1 }
  22.   SolidBegin primitive
  23.     EveCmd {Disk $cylinder(zMin) $cylinder(radius) $cylinder(thetaMax)}
  24.     EveProc {drawInside $cylinder(thetaMax) $cylinder(zMin) $cylinder(zMax) $cylinder(radius) $cylinder(innerX) $cylinder(innerY)} 
  25.     EveCmd {Cylinder $cylinder(radius) $cylinder(zMin) $cylinder(zMax) $cylinder(thetaMax)}
  26.     EveCmd {Disk $cylinder(zMax) $cylinder(radius) $cylinder(thetaMax)}
  27.   SolidEnd
  28. endShape
  29.